#!/usr/bin/env perl

# 只读方式打开文件,并显示内容到控制台
$fileName="data.txt";
open(f,"<$fileName") or die "$fileName 无法打开，$!"; #<表示只读
while(<f>){
        print("$_");
}
close(f) || die "无法关闭文件";

print("\n+++++++++++++++++++++++\n");
#读文件
open(f,"<$fileName") or die "$fileName 文件无法打开！，$!";
@lines=<f>;
print("@lines");
close(f);

#写文件 追加内容
print("\n+++++++++++++++++++++++\n");
$wfileName="write.txt";
open(f,"+>>$wfileName") or die "$wfileName 文件无法打开！，$!";
print f "hello,I'm writing!\n";
close(f);





